home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / TUNES SOUND EFFECTS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  27 lines
  1. 10  REM *************************
  2. 11  REM *  TUNES SOUND EFFECTS  *
  3. 12  REM * BY S. SCOTT ZIMMERMAN *
  4. 13  REM *  COPYRIGHT (C)  1983  *
  5. 14  REM *  BY MICROSPARC, INC.  *
  6. 15  REM *  LINCOLN, MA.  01773  *
  7. 16  REM *************************
  8. 120  TEXT : HOME : VTAB 2: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **": VTAB 6:A$ = "T.U.N.E.S. SOUND EFFECTS": HTAB (41 - LEN(A$))/2: INVERSE : PRINT A$: NORMAL 
  9. 140  PRINT :A$ = "BY S. SCOTT ZIMMERMAN": HTAB (41 - LEN(A$))/2: PRINT A$
  10. 160  PRINT  CHR$(4);"BRUN TUNES"
  11. 180  VTAB 17: INVERSE : PRINT "SOUND EFFECTS:": NORMAL 
  12. 200  GOSUB 2000: PRINT "WHISTLE (?)": & X: POKE 8,1: FOR I = 240 TO 250: POKE 6,252 -I: & : NEXT : & X: & RH: & X: POKE 8,1: FOR I = 2 TO 50: POKE 6,I: & : NEXT : GOSUB 1000: IF A$ = "Y"  THEN 200
  13. 220  GOSUB 2000: PRINT "MONSTER ENCOUNTER (?)": & X: FOR I = 1 TO 10: & CT.3: & C#: NEXT : GOSUB 1000: IF A$ = "Y"  THEN 220
  14. 240  GOSUB 2000: PRINT "SPACE SHIP MOVE (?)": & X: POKE 8,5: FOR I = 1 TO 30: POKE 6,( RND(1) *20 +10): & : NEXT : GOSUB 1000: IF A$ = "Y"  THEN 240
  15. 260  GOSUB 2000: PRINT "TICK-TOCK": & X: FOR I = 1 TO 3: & CT5PST255: & RW: & GT4: & RW: NEXT : GOSUB 1000: IF A$ = "Y"  THEN 260
  16. 280  GOSUB 2000: PRINT "CTRL-G (BEEP) EMULATOR": & X: FOR I = 1 TO 3: & A#E5: & RQ: NEXT : GOSUB 1000: IF A$ = "Y"  THEN 280
  17. 300  GOSUB 2000: PRINT "SNAKE (?)": & X: FOR I = 1 TO 50: POKE 8,1: POKE 6,3: & : NEXT : GOSUB 1000: IF A$ = "Y"  THEN 300
  18. 320  GOSUB 2000: PRINT "LITTLE BIRD": & X: FOR I = 1 TO 3: POKE 8,1: FOR J = 2 TO 6: POKE 6,J: & : NEXT J: & X: & RQ: NEXT I: GOSUB 1000: IF A$ = "Y"  THEN 320
  19. 340  GOSUB 2000: PRINT "REFEREE WHISTLE (?)": & X: POKE 8,1: FOR I = 1 TO 50: & A6: & A#6: NEXT : GOSUB 1000: IF A$ = "Y"  THEN 340
  20. 360  GOSUB 2000: PRINT "LOUDER REFEREE WHISTLE (?)": & X: POKE 8,1: FOR I = 1 TO 50: & C6: & C#6: NEXT : GOSUB 1000: IF A$ = "Y"  THEN 360
  21. 380  GOSUB 2000: PRINT "AMBULENCE SIREN": & X: FOR I = 1 TO 4: & CQ3: & G2: NEXT : GOSUB 1000: IF A$ = "Y"  THEN 380
  22. 400  GOSUB 2000: PRINT "'CHARGE' FANFARE": & GE3PT230: & CE4: & E: & GQL: & EE: & GH: GOSUB 1000: IF A$ = "Y"  THEN 400
  23. 420  GOSUB 2000: PRINT "TELEPHONE RING": & X: POKE 8,6: POKE 6,27: FOR I = 1 TO 30: & : NEXT : GOSUB 1000: IF A$ = "Y"  THEN 420
  24. 440  GOSUB 2000: PRINT "STATIC (GEIGER COUNTER)": & XS2ST255: FOR I = 1 TO 80: POKE 8, RND(1) *10: & A: NEXT : GOSUB 1000: IF A$ = "Y"  THEN 440
  25. 460  HOME : END 
  26. 1000  VTAB 20: HTAB 1: CALL  -868: PRINT "DO YOU WANT TO HEAR IT AGAIN? (Y/N) ";: GET A$: PRINT A$: RETURN 
  27. 2000  VTAB 20: HTAB 1: CALL  -868: RETURN